100 REM **************************** 110 REM * * 120 REM * BEISPIELPROGRAMM * 130 REM * * 140 REM * ZU d, de + dg * 150 REM * * 155 REM * d7, d8 + d9 * 156 REM * * 160 REM **************************** 170 REM 175 d7 "S",:d2 df 180 d 10,2 190 PRINTd(0,20)" "; 200 FOR I=0 TO 255:REM _ ALLE ZEICHEN 210 : POKE 55296+I,0:REM FARBE: SCHWARZ 220 : POKE 1024+I,I:REM ZEICHEN 230 NEXT I 240 de 2,1,6,5 250 df 10 255 d8 260 dg 270 END 280 d1 df 290 PRINTd(0,20)"PAUSE" 300 df1 310 PRINTd(0,20)" " 320 d9